home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 56.zip / BS1 part 56 / Maxon Word d1.adf / INSTALL-MaxonWORD-HD < prev    next >
Text File  |  1993-04-15  |  11KB  |  351 lines
  1. ; $VER: MaxonWORD Install Version 1.01 (02.04.93)
  2. ; Script zum Installieren von MaxonWORD
  3. ; 
  4. ;============================
  5. ;=== Deutsche Erklärungen ===
  6. ;============================
  7. (set #introduction
  8. (cat "\nMit diesem Installationsprogramm können Sie\n\n MaxonWORD\n\n auf einer "
  9.      "Festplatte installieren. Die komplette Installation läuft nahezu vollständig "
  10.      "automatisch ab.\n\n"
  11.      "Drücken Sie \"Proceed\", um mit der Installation fortzufahren.\n\n"
  12.      "Drücken Sie \"Abort Install\", um die Installation abzubrechen."))
  13. (set #askdir-help
  14. (cat "\nWählen Sie zuerst die Partition Ihrer Festplatte aus, auf der "
  15.      "Sie gerne MaxonWORD installieren möchten. Danach klicken Sie "
  16.      "auf \"MAKE NEW DRAWER\" und geben hinter dem Doppelpunkt den "
  17.      "Namen des Verzeichnisses an (z.B. WORK:MWORD). Dann drücken Sie "
  18.      "auf \"PROCEED\" und das Programm beginnt mit der Arbeit.\n\n"
  19.      "Beschreibung der Schalter:\n\n"
  20.      "Der große \"Rollbereich\" in der Mitte des Fensters zeigt den "
  21.      "Inhalt der aktuellen Diskette oder des aktuellen Verzeichnisses. "
  22.      "Schubladen werden durch\ndie invertierten Buchstaben \"DRW\" vor "
  23.      "deren Namen gekennzeichnet. Der Name der Diskette oder des "
  24.      "Verzeichnisses, das dargestellt wird, erscheint darunter in einem "
  25.      "hervorgehobenen Kasten. Auf der rechten Seite des Inhaltsfeldes "
  26.      "befindete sich ein Schieber, mit dem man sich durch eine "
  27.      "Verzeichnis- liste bewegen kann, falls der sichtbare Platz nicht für "
  28.      "alle Einträge ausreicht.\n\n"
  29.      "Man kann das aktuelle Verzeichnis wechseln, indem auf den Namen "
  30.      "einer Schublade geklickt wird.\n\n"
  31.      "Mit dem Schalter \"Parent Drawer\" gelangt man wieder in das "
  32.      "übergeordnete Verzeichnis (von dem aus eine Schublade angeklickt "
  33.      "wurde.)\n\n"
  34.      "Der Schalter \"Show Drives\" zeigt alle am Amiga ange- schlossenen "
  35.      "Geräte (z.B. Disketten- oder Fest- platten-Laufwerke) an. Klicken "
  36.      "auf einen Namen, um sich den Inhalt des betreffenden Gerätes "
  37.      "anzusehen.\n\n"
  38.      "Über den Schalter \"Make New Drawer\" können Sie ein neues "
  39.      "Verzeichnis erzeugen. Diese neue Schublade\nwird in dem Verzeichnis "
  40.      "angelegt, das Sie soeben betrachten.\n\n"
  41.      "Mit dem Schalter \"Proceed\" erklären Sie sich mit dem eingestellten "
  42.      "Verzeichnis zufrieden und fahren mit der Installation fort.\n\n"
  43.      "Ein Klick auf den Schalter \"Abort Install\" bricht die Installation "
  44.      "an dieser Stelle ab. Es werden keine weiteren Änderungen mehr "
  45.      "vorgenommen.\n\n"
  46.      "\"Help...\" zeigt diesen Text."))
  47. (set #help-startup
  48. (cat "Die Datei \"user-startup\" befindet sich im Verzeichnis \"S:\". "
  49.      "In ihr befinden sich spezielle Kommandos, die einige Programme "
  50.      "bereits beim Systemstart ausführen.\n\n"
  51.      "Wenn Sie auf den Schalter \"Proceed\" klicken, so wird Ihre "
  52.      "\"user-startup\" automatisch um die angezeigten Zeilen ergänzt. "
  53.      "Wollen Sie jedoch diesen Teil überspringen, so klicken Sie auf "
  54.      "den Schalter \"Skip This Part\"\n\n"
  55.      "\"Abort\" bricht die Installation an dieser Stelle ab."))
  56. (set #help-delete
  57. (cat "Die Datei \"Assigns\" ist nur nötig, wenn Sie keine Änderungen in der "
  58.      "User-Startup bzw. Startup-Sequence vorgenommen haben.\n\n"
  59.      "Wenn Sie auf den Schalter \"Proceed\" klicken, so wird die Datei "
  60.      "\"Assigns\" gelöscht.\n\n"
  61.      "Wollen Sie jedoch diesen Teil überspringen, so klicken Sie auf "
  62.      "den Schalter \"Skip This Part\". Die Datei \"Assigns\" bleibt im "
  63.      "Installationsverzeichnis erhalten.\n\n"
  64.      "\"Abort\" bricht die Installation an dieser Stelle ab."))
  65. (set #startup-help
  66. (cat "Erklärung der Schalter:\n\n"
  67.      "\"Install for Real\"\n"
  68.      "Dies veranlaßt den Installer, die Installation tatsächlich vorzunehmen.\n\n"
  69.      "\"Pretend to Install\"\n"
  70.      "Hiermit führt der Installer alle Schritte der Installation durch. "
  71.      "Allerdings werden keine Änderungen an irgendwelchen Dateien vorgenommen. "
  72.      "Man kann diese Option dazu verwenden, um zu sehen, was der Installer tun "
  73.      "wird, bevor man die eigentliche Installation veranlaßt. In Verbindung "
  74.      "mit dem Schalter \"Log File\" darunter erhält man außerdem eine komplette "
  75.      "Liste über alle durchgeführten Aktionen.\n\n"
  76.      "\"Printer\"\n"
  77.      "Hiermit wird eine Liste aller Aktionen des Installers auf dem Drucker "
  78.      "ausgegeben.\n\n"
  79.      "\"Log File\"\n"
  80.      "Alle Aktionen des Installers werden in eine Protokolldatei geschrieben. Wenn "
  81.      "die Installation beendet ist, werden Sie über den Ort dieser Datei informiert. "
  82.      "Sie können diese Liste mit einem beliebigen Editor betrachten.\n\n"
  83.      "\"None\"\n"
  84.      "Ist dieser Schalter gedrückt, so wird keine Protokolldatei erzeugt.\n"))
  85. (set #no-inst
  86. (cat "\nDer Platz in dem von Ihnen gewählten Verzeichnis reicht nicht aus, um die "
  87.      "nötigsten MaxonWORD-Dateien zu kopieren\n\n"
  88.      "!!! Die Installation wird abgebrochen !!!"))
  89.  
  90. (set #ERRORRAM (cat "Kann die notwendigen Dateien nicht in die Ram disk kopieren."))
  91.  
  92. (set #COPVERZ    (cat "\nIn welches Verzeichnis soll MaxonWORD\nkopiert werden?\n\n"))
  93. (set #WORDFONTS    (cat "Die Fontdaten werden entpackt!\n\n"))
  94. (set #WORDDOKU    (cat "\nKopiere die Demo-Dokumente!\n\n"))
  95.  
  96. (set @WORDSIZE    500000)
  97. (set @FONTSIZE    700000)
  98. (set @CONFSIZE 20000)
  99.  
  100. (set @abort-button "Abbruch")
  101. (set @language "Deutsch")
  102.  
  103. (Procedure Inst_NormFiles
  104.     (if (< (getdiskspace @Dest) @Size)
  105.         (abort #no-inst))
  106.  
  107.     (set @anzeige (cat "Kopiere "@FName" aus "@SOURCE" \nnach "@Dest))
  108.     (copyfiles (prompt @anzeige)(help @copyfiles-help)(source @Source)(choices @FName)(files)(infos)(dest @Dest)(confirm))
  109. )
  110.  
  111. (Procedure Inst_PatternFiles
  112.     (if (< (getdiskspace @Dest) @Size)
  113.         (abort #no-inst))
  114.  
  115.     (set @anzeige (cat "Kopiere "@FName" aus "@SOURCE" \nnach "@Dest))
  116.     (copyfiles (prompt @anzeige)(help @copyfiles-help)(source @Source)(pattern @Pattern)(infos)(dest @Dest)(confirm))
  117. )
  118.  
  119. (Procedure Inst_LhaFiles
  120.     ;(set @In_File (tackon @Source @FName.lha))
  121.     (set @TMP (tackon "RAM:" @FName.lha))
  122.     (set @Dest_File (tackon @default-dest @Dest))
  123.     (if                                          ; Verzeichnis erzeugen
  124.         (= (exists @Dest_File) 0)
  125.         (makedir (@Dest_File)(infos))
  126.     )
  127.  
  128.     (if (< (getdiskspace @Dest_File) @Size)
  129.         (abort #no-inst))
  130.  
  131.     (copyfiles (prompt "")(help "")(source @Source)(choices @FName.lha)(dest "RAM:")(confirm))
  132.     (working @Working @Dest)
  133.     (run ("RAM:Lhx -E -N x %s \"%s/\"" @TMP @Dest_File))
  134.     (delete @TMP)
  135. )
  136.  
  137. (Procedure Inst_LhaFilesnew
  138.     ;(set @In_File (tackon @Source @FName.lha))
  139.     (set @TMP (tackon "RAM:" @FName.lha))
  140.     (set @Dest_File (tackon @default-dest @Dest))
  141.     (makedir (@Dest_File)(infos))
  142.  
  143.     (if (< (getdiskspace @Dest_File) @Size)
  144.         (abort #no-inst))
  145.  
  146.     (copyfiles (prompt "")(help "")(source @Source)(choices @FName.lha)(dest "RAM:")(confirm))
  147.     (working @Working @Dest)
  148.     (run ("RAM:Lhx -E -N x %s \"%s/\"" @TMP @Dest_File))
  149.     (delete @TMP)
  150. )
  151.  
  152.  
  153. (complete 0)
  154.  
  155. (message #introduction)
  156. (welcome)
  157.  
  158. (set @default-dest                           ; Verzeichnis aussuchen 
  159.     (askdir
  160.         (prompt #COPVERZ)
  161.         (help    #askdir-help)
  162.         (default "WORK:MWORD")
  163.     )
  164. )
  165.  
  166. (if                                          ; Verzeichnis erzeugen
  167.     (= (exists @default-dest) 0)
  168.     (makedir @default-dest)
  169. )
  170.  
  171.  
  172.     (askdisk
  173.         (prompt "\n\n\nBitte legen Sie die Diskette \"MaxonWORD_Disk1\" ein!")
  174.         (help #askdir-help)
  175.         (dest "MaxonWORD_Disk1")
  176.     )
  177.  
  178.  
  179. (if
  180.    (= (exists "C:MuchMore") 0)
  181.     (copyfiles                                        ; MuchMore kopieren
  182.         (prompt "Einige Installationsdateien werden kopiert ...")
  183.         (help @copyfiles-help)
  184.         (source "MaxonWORD_Disk1:C")
  185.         (dest "C:")
  186.        (choices "MuchMore")
  187.     )
  188. )
  189.  
  190. (copyfiles                                            ; LHX kopieren
  191.     (prompt #COPYRAM)
  192.     (help @copyfiles-help)
  193.     (source "MaxonWORD_Disk1:C")
  194.     (dest "RAM:")
  195.    (choices "Lhx")
  196. )
  197.  
  198. (if(= 0 (exists "RAM:Lhx"))
  199.     (abort #ERRORRAM))
  200.  
  201. (complete 5)
  202.  
  203. (
  204.     (set @Source "MaxonWORD_Disk1:")
  205.     (set @Dest @default-dest)
  206.    (set @Pattern "MW#?")
  207.     (set @Size @WORDSIZE)
  208.     (Inst_PatternFiles)
  209. )
  210.  
  211. (complete 15)
  212.  
  213. (set @Dokument-Dir (tackon @default-dest "Dokumente"))
  214. (set @Grafik-Dir (tackon @default-dest "Grafiken"))
  215.  
  216.     (if                                          ; Verzeichnis erzeugen
  217.         (= (exists @Dokument-Dir) 0)
  218.         (makedir (@Dokument-Dir)(infos))
  219.     )
  220.  
  221.     (if                                          ; Verzeichnis erzeugen
  222.         (= (exists @Grafik-Dir) 0)
  223.         (makedir (@Grafik-Dir)(infos))
  224.     )
  225.  
  226. (    (set @Working #WORDDOKU)
  227.     (set @Dest @Dokument-Dir)
  228.     (set @Source "MaxonWORD_Disk1:Dokumente/")
  229.     (set @FName  "TextDemo.Dok")
  230.     (set @Size 0)
  231.     (Inst_NormFiles)
  232. )
  233.  
  234. (    (set @Working #WORDDOKU)
  235.     (set @Dest @Dokument-Dir)
  236.     (set @Source "MaxonWORD_Disk1:Dokumente/")
  237.     (set @FName  "FontDemo.Dok")
  238.     (set @Size 0)
  239.     (Inst_NormFiles)
  240. )
  241.  
  242. (    (set @Working #WORDDOKU)
  243.     (set @Dest @Grafik-Dir)
  244.     (set @Source "MaxonWORD_Disk1:Grafiken/")
  245.     (set @FName  "Demo.Iff")
  246.     (set @Size 0)
  247.     (Inst_NormFiles)
  248. )
  249.  
  250. (complete 35)
  251.  
  252. (
  253.     (set @Source "MaxonWORD_Disk1:S")
  254.     (set @Dest "S:")
  255.    (set @Pattern "MW#?")
  256.     (set @Size @CONFSIZE)
  257.     (Inst_PatternFiles)
  258. )
  259.  
  260. (if (< (/ (getversion) 65536) 35)
  261.  
  262.  
  263.     (complete 40)
  264.  
  265.     (copylib                                            ; RCT-LIB kopieren
  266.         (prompt "Die MWSUPPORT-LIBRARY wird kopiert ...")
  267.         (help
  268.             "Die MWSUPPORT-Library beinhaltet den Standard-Filerequester "
  269.           "Wenn Sie diese Bibliothek schon auf Ihrer Festplatte "
  270.           "installiert haben, dann ist hier eine neuere Version.\n\n"
  271.             @copyfiles-help
  272.         )
  273.         (source "MaxonWORD_Disk1:libs/mwsupport.library")
  274.         (dest "Libs:")
  275.         (confirm)
  276.     )
  277. )
  278.  
  279. (copylib                                            ; IFFPARSE-LIB kopieren
  280.     (prompt "Die IFFParse-LIBRARY wird kopiert ...")
  281.     (help
  282.         "Die IFF-Library wird von MaxonWORD benötigt."
  283.       "Wenn Sie diese Bibliothek schon auf Ihrer Festplatte "
  284.       "installiert haben, dann ist hier eine neuere Version.\n\n"
  285.         @copyfiles-help
  286.     )
  287.     (source "MaxonWORD_Disk1:Libs/iffparse.library")
  288.     (dest "Libs:")
  289.     (confirm)
  290. )
  291.  
  292.  
  293. (complete 50)
  294.  
  295. (askdisk
  296.     (prompt "\n\n\nBitte legen Sie die Diskette \"MaxonWORD_Disk2\" ein!")
  297.     (help "Diese Diskette enthält die Postscript-Fonts.")
  298.     (dest "MaxonWORD_Disk2")
  299. )
  300.  
  301. (set @Font-Dir (tackon @default-dest "PS-Fonts"))
  302.  
  303.  
  304. (    (set @Working #WORDFONTS)
  305.     (set @Dest ("PS-Fonts"))
  306.     (set @Source "MaxonWORD_Disk2:")
  307.     (set @FName.lha ("PSFONTS.LHA"))
  308.     (set @Size @FONTSIZE)
  309.     (Inst_LhaFiles)
  310. )
  311.  
  312.  
  313. (complete 90)
  314.  
  315. ; ------- STARTUP ÄNDERN
  316.  
  317. (set command1 (cat "ASSIGN MWORD: " @default-dest "\nASSIGN PS-Fonts: " @Font-Dir))
  318.  
  319. (set command1.txt
  320.     (cat 
  321.          "\n\n\nUm mit dem MaxonWORD richtig arbeiten zu "
  322.       "können muß eine Änderung an der User-Startup vorgenommen werden.\n\n"
  323.          command1
  324.     )
  325. )
  326.  
  327. (startup "MaxonWORD.app"
  328.     (prompt command1.txt)
  329.     (help #help-startup)
  330.     (command command1)
  331. )
  332.  
  333. (makeassign "PS-Fonts")
  334. (makeassign "PS-Fonts" @Font-Dir)
  335. (makeassign "MWORD")
  336. (makeassign "MWORD" @default-dest)
  337.  
  338. (complete 100)
  339.  
  340. ; ------- FERTIG
  341.  
  342. (message (cat 
  343.     "Installation der Textverarbeitung MaxonWORD beendet.\n"
  344.    "Falls die Zeilen:\n" command1 "\nnicht in Ihre Startup-Sequence bzw. "
  345.    "User-Startup eingefügt wurde, dann holen Sie dies bitte nach.\n\n"
  346.    "Entfernen Sie nun die Diskette aus Ihrem Laufwerk und starten Sie "
  347.    "MaxonWORD.\n\nViel Erfolg!")
  348. )
  349.  
  350.  
  351.